home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 029 (1987-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 029 (1987-08-15)(Ossowski, Stefan)(DE)(PD).adf / ue / UE-DU < prev   
Text File  |  1978-08-10  |  6KB  |  178 lines
  1.                                 Uedit V1.8
  2.                     Copyright (C) 1986-87, Rick Stiles
  3.                         2420 Summit Springs Drive
  4.                             Atlanta, GA 30338
  5.  
  6.  
  7.                      Uedit Directory Utility Commands
  8.  
  9.  
  10. Initializing:
  11.  
  12. 1.  Load UE-DU and UE-DU-ReadMe into Uedit.
  13.  
  14. 2.  Press F6 to compile the command below.
  15.  
  16. ---->  <shftAltCtl-f:  freeBuf(buf20)  freeBuf(buf21)  equateNum(n53,0)
  17.            killKey(shftAltCtl-z)
  18.            newFile
  19.            setFileName(curFile,"Click 2nd Gadget ==> for Directory")
  20.            loadConfig("S:DU-Data!") >
  21.  
  22. 3.  ERASE the Left Angle Bracket in front of the ABOVE command.
  23.  
  24. 4.  Select "Save config", click YES, and press ESC.
  25.  
  26. 5.  Press F6 again.
  27.  
  28. <shftAltCtl-z:
  29.            freeBuf(buf54)
  30.            insertChar(buf54,60)
  31.            killKey(shftAlt-m)
  32.            killKey(shftAltCtl-m)
  33.            killKey(shft-buttonDown)
  34.            killKey(alt-buttonDown)
  35.            killKey(ctl-buttonDown)
  36.            killKey(shftAlt-buttonDown)
  37.            killKey(shftCtl-buttonDown)
  38.            killKey(altCtl-buttonDown)
  39.            killKey(shftAltCtl-buttonDown)
  40.            killKey(shft-buttonUp)
  41.            killKey(alt-buttonUp)
  42.            killKey(ctl-buttonUp)
  43.            killKey(shftAlt-buttonUp)
  44.            killKey(shftCtl-buttonUp)
  45.            killKey(altCtl-buttonUp)
  46.            killKey(shftAltCtl-buttonUp)
  47.            killKey(normal-gadget1)
  48.            killKey(normal-gadget2)
  49.            killKey(normal-gadget3)
  50.            killKey(normal-gadget4)
  51.            killKey(shft-gadget4)
  52.            do (n54,1,12) {
  53.                moveCursor(curFile,sFile)
  54.                search(curFile,locA,locB,buf54,eChar)
  55.                swapChar(curFile," ")
  56.                compile
  57.            }
  58.            if (not getFlag(curFile,markGadgets)) flipFlag(curFile,markGadgets)
  59.            if (    getFlag(curFile,rowCol))      flipFlag(curFile,rowCol)
  60.            putMsg("Directory Utility commands are compiled")
  61.            saveConfig("S:DU-Data!")
  62.            moveCursor(curFile,sFile)
  63.            freeBuf(buf49)
  64.            insertRgn(buf49,sFile,"Kill key",all)
  65.            search(curFile,sHilite,eHilite,buf49,eChar)
  66.            search(curFile,sHilite,eHilite,buf49,eChar)
  67.            vScroll(atCursor)>
  68.  
  69. 6.  Press shftAltCtl-z.  This will compile the remaining commands and save
  70. the config as "S:UE-Data!".  (It's slow because it must search for angle
  71. brackets repeatedly, starting from top of file each time.)
  72.  
  73. 7.  Select "Kill key".  Press (carefully) ShftAltCtl-z.
  74.  
  75. 8.  Select "Save config".  Click YES.  Press ESC.  
  76.  
  77. 9.  Press ShftAltCtl-r to reload your normal config.  Select "Restore" and
  78. click Yes.  Press F1 and read the Instructions in UE-DU-ReadMe.  
  79.  
  80.  
  81.                           **********************
  82.                                  FINISHED
  83.                           Do not save this file!
  84.                           **********************
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92. Restore normal configuration
  93. <ShftAltCtl-r: loadConfig("S:Data!")>
  94.        
  95. Hilite clicked file as Source 
  96. <shft-buttonDown:
  97.    equateLoc(curFile,atCursor,mouseLoc)
  98.    if (not is(curFile,whiteSpace)) {
  99.        while (not is(curFile,whiteSpace))
  100.            { moveCursor(curFile,sChar) if (is(curFile,sFile)) goto label(1) }
  101.        label(1)
  102.        while (is(curFile,whiteSpace))
  103.            { moveCursor(curFile,eChar) if (is(curFile,eFile)) goto label(2) }
  104.        label(2)
  105.        equateLoc(curFile,sHilite,atCursor)
  106.        while (not is(curFile,whiteSpace))
  107.            { moveCursor(curFile,eChar) if (is(curFile,eFile)) goto label(3) }
  108.        label(3)
  109.        equateLoc(curFile,eHilite,atCursor)
  110.        freeBuf(buf20)
  111.        if (gtLoc(curFile,sHilite,eHilite)) {
  112.            equateLoc(curFile,sHilite,eHilite) goto label(9) }
  113.        refreshDisplay
  114.        moveCursor(curFile,sFile) moveCursor(curFile,eWord)
  115.        moveCursor(curFile,sWord)
  116.        equateLoc(curFile,locA,atCursor)
  117.        moveCursor(curFile,eLine)
  118.        equateLoc(curFile,locB,atCursor)
  119.        if (not eqLoc(curFile,locA,sHilite)) insertRgn(buf20,sFile,curFile,loc)
  120.        insertRgn(buf20,eFile,curFile,hilite)
  121.        getBufNum(n50)
  122.        do (n54,0,19) if (not eqNum(n54,n50)) { if (not isEmpty(buf[n54]))
  123.            equateLoc(buf[n54],sHilite,eHilite) }
  124.    } else { freeBuf(buf20) equateLoc(curFile,sHilite,eHilite) }
  125. label(9)
  126.    runKey(shftAltCtl-m) >
  127.  
  128. Invert clicked file as Target 
  129. <alt-buttonDown:
  130.    equateLoc(curFile,atCursor,mouseLoc)
  131.    if (not is(curFile,whiteSpace)) {
  132.        while (not is(curFile,whiteSpace))
  133.            { moveCursor(curFile,sChar) if (is(curFile,sFile)) goto label(1) }
  134.        label(1)
  135.        while (is(curFile,whiteSpace))
  136.            { moveCursor(curFile,eChar) if (is(curFile,eFile)) goto label(2) }
  137.        label(2)
  138.        equateLoc(curFile,sInvert,atCursor)
  139.        while (not is(curFile,whiteSpace))
  140.            { moveCursor(curFile,eChar) if (is(curFile,eFile)) goto label(3) }
  141.        label(3)
  142.        equateLoc(curFile,eInvert,atCursor)
  143.        freeBuf(buf21)
  144.        if (gtLoc(curFile,sInvert,eInvert)) {
  145.            equateLoc(curFile,sInvert,eInvert) goto label(9) }
  146.        refreshDisplay
  147.        moveCursor(curFile,sFile) moveCursor(curFile,eWord)
  148.        moveCursor(curFile,sWord)
  149.        equateLoc(curFile,locA,atCursor)
  150.        moveCursor(curFile,eLine)
  151.        equateLoc(curFile,locB,atCursor)
  152.        if (not eqLoc(curFile,locA,sInvert)) insertRgn(buf21,sFile,curFile,loc)
  153.        insertRgn(buf21,eFile,curFile,invert)
  154.        getBufNum(n50)
  155.        do (n54,0,19) if (not eqNum(n54,n50)) if (not isEmpty(buf[n54]))
  156.            equateLoc(buf[n54],sInvert,eInvert)
  157.    } else { freeBuf(buf21) equateLoc(curFile,sInvert,eInvert) }
  158. label(9)
  159.    runKey(shftAltCtl-m) >
  160.  
  161. LOAD file or directory that is clicked.
  162. <ctl-buttonDown:
  163.    runKey(shft-buttonDown)
  164.    if (isEmpty(buf20)) returnFalse
  165.    moveCursor(buf20,eFile)
  166.    moveCursor(buf20,sChar)
  167.    if (is(buf20,":")) goto label(1)
  168.    if (is(buf20,"/")) {
  169. label(1)
  170.        freeBuf(buf53)
  171.        insertRgn(buf53,sFile,buf20,all)
  172.        if (eqLoc(curFile,locA,sHilite)) freeBuf(curFile)
  173.        equateNum(n53,1)
  174.        runKey(normal-gadget2)
  175.        runKey(shftAltCtl-m)
  176.    } else loadFile(buf20)>
  177.  
  178. DELETE from Direc